inherited FMovFolhaPagamentoItem: TFMovFolhaPagamentoItem
  Left = 241
  Top = 263
  Width = 940
  Height = 559
  Caption = 'Ajustes Folha de Pagamento'
  PixelsPerInch = 96
  TextHeight = 13
  inherited btnBtPrimeiro: TSpeedButton
    OnClick = btnBtPrimeiroClick
  end
  inherited btnBtAnterior: TSpeedButton
    OnClick = btnBtAnteriorClick
  end
  object Lb2: TLabel [4]
    Left = 160
    Top = 40
    Width = 41
    Height = 13
    Caption = 'Empresa'
    FocusControl = dbedtEMPRESA
  end
  object Lb3: TLabel [5]
    Left = 528
    Top = 40
    Width = 33
    Height = 13
    Caption = 'Equipe'
    FocusControl = dbedtCODEQUIPE
  end
  object Lb4: TLabel [6]
    Left = 16
    Top = 80
    Width = 57
    Height = 13
    Caption = 'Colaborador'
    FocusControl = dbedtPESCODIGO
  end
  object Lb6: TLabel [7]
    Left = 16
    Top = 128
    Width = 48
    Height = 13
    Caption = 'Salario (B)'
    FocusControl = dbedtPESCOLSALARIO
  end
  object Lb7: TLabel [8]
    Left = 112
    Top = 128
    Width = 87
    Height = 13
    Caption = 'Salario Carteira (C)'
    FocusControl = dbedtPESCOLSALARIOCARTEIRA
  end
  object Lb8: TLabel [9]
    Left = 744
    Top = 80
    Width = 68
    Height = 13
    Caption = 'Total INSS (A)'
    FocusControl = dbedtTOTALINSS
  end
  object Lb11: TLabel [10]
    Left = 216
    Top = 128
    Width = 40
    Height = 13
    Caption = 'DSR (D)'
    FocusControl = dbedtVALORDSR
  end
  object Lb13: TLabel [11]
    Left = 600
    Top = 128
    Width = 138
    Height = 13
    Caption = 'A Receber Bruto (H = A+B-C)'
    FocusControl = dbedtRECEBERBRUTO
  end
  object Lb15: TLabel [12]
    Left = 744
    Top = 128
    Width = 153
    Height = 13
    Caption = 'A Receber Liquido (I = H-E-F+G)'
    FocusControl = dbedtRECEBERLIQUIDO
  end
  object Lb5: TLabel [13]
    Left = 16
    Top = 40
    Width = 43
    Height = 13
    Caption = 'M'#234's Ref.'
    FocusControl = dbedtMESREFERENCIA
  end
  object Lb9: TLabel [14]
    Left = 64
    Top = 40
    Width = 42
    Height = 13
    Caption = 'Ano Ref.'
    FocusControl = dbedtANOREFERENCIA
  end
  object Lb1: TLabel [15]
    Left = 304
    Top = 128
    Width = 90
    Height = 13
    Caption = 'Tot. Desc. Vale (E)'
    FocusControl = dbedtVALE
  end
  inherited BtCancelar: TBitBtn
    Left = 841
    Top = 491
  end
  inherited BtGravar: TBitBtn
    Left = 761
    Top = 490
  end
  object dbedtEMPRESA: TDBEdit [18]
    Left = 160
    Top = 56
    Width = 57
    Height = 21
    DataField = 'EMPRESA'
    DataSource = dsCampos
    TabOrder = 2
  end
  object dbedtCODEQUIPE: TDBEdit [19]
    Left = 528
    Top = 56
    Width = 57
    Height = 21
    DataField = 'CODEQUIPE'
    DataSource = dsCampos
    TabOrder = 3
  end
  object dbedtPESCODIGO: TDBEdit [20]
    Left = 16
    Top = 96
    Width = 57
    Height = 21
    DataField = 'PESCODIGO'
    DataSource = dsCampos
    TabOrder = 4
  end
  object dbedtPESCOLSALARIO: TDBEdit [21]
    Left = 16
    Top = 144
    Width = 89
    Height = 21
    DataField = 'PESCOLSALARIO'
    DataSource = dsCampos
    TabOrder = 5
  end
  object dbedtPESCOLSALARIOCARTEIRA: TDBEdit [22]
    Left = 112
    Top = 144
    Width = 97
    Height = 21
    DataField = 'PESCOLSALARIOCARTEIRA'
    DataSource = dsCampos
    TabOrder = 6
  end
  object dbedtTOTALINSS: TDBEdit [23]
    Left = 744
    Top = 96
    Width = 134
    Height = 21
    DataField = 'TOTALINSS'
    DataSource = dsCampos
    TabOrder = 7
  end
  object dbedtVALORDSR: TDBEdit [24]
    Left = 216
    Top = 144
    Width = 81
    Height = 21
    DataField = 'VALORDSR'
    DataSource = dsCampos
    TabOrder = 8
  end
  object dbedtRECEBERBRUTO: TDBEdit [25]
    Left = 600
    Top = 144
    Width = 134
    Height = 21
    DataField = 'RECEBERBRUTO'
    DataSource = dsCampos
    TabOrder = 9
  end
  object dbedtRECEBERLIQUIDO: TDBEdit [26]
    Left = 744
    Top = 144
    Width = 134
    Height = 21
    DataField = 'RECEBERLIQUIDO'
    DataSource = dsCampos
    TabOrder = 10
  end
  object dbrgrpPESCOLPAGAINSS: TDBRadioGroup [27]
    Left = 528
    Top = 88
    Width = 201
    Height = 33
    Caption = 'Paga INSS'
    Columns = 2
    DataField = 'PESCOLPAGAINSS'
    DataSource = dsCampos
    Items.Strings = (
      'Sim'
      'N'#227'o')
    TabOrder = 11
    Values.Strings = (
      'S'
      'N')
  end
  object EdDescEmpresa: TEdit [28]
    Left = 216
    Top = 56
    Width = 305
    Height = 21
    Color = clGray
    ReadOnly = True
    TabOrder = 12
  end
  object EdDescEquipe: TEdit [29]
    Left = 584
    Top = 56
    Width = 297
    Height = 21
    Color = clGray
    ReadOnly = True
    TabOrder = 13
  end
  object EdDescColaboradoor: TEdit [30]
    Left = 72
    Top = 96
    Width = 449
    Height = 21
    Color = clGray
    ReadOnly = True
    TabOrder = 14
  end
  object pgcFaltas: TPageControl [31]
    Left = 16
    Top = 184
    Width = 897
    Height = 281
    ActivePage = ts1
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlack
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 15
    object ts1: TTabSheet
      Caption = 'Vale'
      object DbgVale: TDBGrid
        Left = 0
        Top = 0
        Width = 889
        Height = 246
        Align = alClient
        DataSource = dsVale
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = 8
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
        ParentFont = False
        TabOrder = 0
        TitleFont.Charset = ANSI_CHARSET
        TitleFont.Color = clBlack
        TitleFont.Height = 8
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        OnCellClick = DbgValeCellClick
        OnColExit = DbgValeColExit
        OnDrawColumnCell = DbgValeDrawColumnCell
        OnKeyPress = DbgValeKeyPress
        Columns = <
          item
            Expanded = False
            FieldName = 'CODVALE'
            Title.Caption = 'C'#243'digo'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'DTVALE'
            Title.Caption = 'Data da Retirada'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'VALORVALE'
            Title.Caption = 'Valor do Vale'
            Width = 89
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'EMPRESA'
            Visible = False
          end
          item
            Expanded = False
            FieldName = 'CODPESSOA'
            Visible = False
          end
          item
            Expanded = False
            FieldName = 'DESCONTADOVALE'
            Title.Caption = 'Descontado'
            Visible = True
          end>
      end
      object DBCheckBox1: TDBCheckBox
        Left = 296
        Top = 16
        Width = 41
        Height = 17
        TabOrder = 1
        ValueChecked = 'True'
        ValueUnchecked = 'False'
      end
    end
    object ts2: TTabSheet
      Caption = 'Faltas'
      ImageIndex = 1
      object Dbg2: TDBGrid
        Left = 0
        Top = 0
        Width = 889
        Height = 246
        Align = alClient
        TabOrder = 0
        TitleFont.Charset = ANSI_CHARSET
        TitleFont.Color = clBlack
        TitleFont.Height = -16
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = [fsBold]
      end
    end
    object ts3: TTabSheet
      Caption = 'Horas'
      ImageIndex = 2
      object Dbg3: TDBGrid
        Left = 0
        Top = 0
        Width = 889
        Height = 246
        Align = alClient
        TabOrder = 0
        TitleFont.Charset = ANSI_CHARSET
        TitleFont.Color = clBlack
        TitleFont.Height = -16
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = [fsBold]
      end
    end
  end
  object dbedtMESREFERENCIA: TDBEdit [32]
    Left = 16
    Top = 56
    Width = 41
    Height = 21
    DataField = 'MESREFERENCIA'
    DataSource = dsCampos
    TabOrder = 16
  end
  object dbedtANOREFERENCIA: TDBEdit [33]
    Left = 64
    Top = 56
    Width = 85
    Height = 21
    DataField = 'ANOREFERENCIA'
    DataSource = dsCampos
    TabOrder = 17
  end
  object dbedtVALE: TDBEdit [34]
    Left = 304
    Top = 144
    Width = 97
    Height = 21
    DataField = 'VALE'
    DataSource = dsCampos
    TabOrder = 18
  end
  object dsCampos: TDataSource [35]
    DataSet = FMovFolhaPagamento.QFolhaPagamentoItem
    Left = 168
    Top = 8
  end
  inherited QFilha: TQuery
    DatabaseName = 'FPagamento.FDB'
    SQL.Strings = (
      'select * from FOLHAPAGAMENTOITEM'
      'WHERE 1=-1')
    Left = 136
    object QFilhaEMPRESA: TIntegerField
      FieldName = 'EMPRESA'
      Origin = '"FPAGAMENTO.FDB".FOLHAPAGAMENTOITEM.EMPRESA'
    end
    object QFilhaCODEQUIPE: TIntegerField
      FieldName = 'CODEQUIPE'
      Origin = '"FPAGAMENTO.FDB".FOLHAPAGAMENTOITEM.CODEQUIPE'
    end
    object QFilhaPESCODIGO: TIntegerField
      FieldName = 'PESCODIGO'
      Origin = '"FPAGAMENTO.FDB".FOLHAPAGAMENTOITEM.PESCODIGO'
    end
    object QFilhaPESCOLPAGAINSS: TStringField
      FieldName = 'PESCOLPAGAINSS'
      Origin = '"FPAGAMENTO.FDB".FOLHAPAGAMENTOITEM.PESCOLPAGAINSS'
      Size = 1
    end
    object QFilhaPESCOLSALARIO: TFloatField
      FieldName = 'PESCOLSALARIO'
      Origin = '"FPAGAMENTO.FDB".FOLHAPAGAMENTOITEM.PESCOLSALARIO'
    end
    object QFilhaPESCOLSALARIOCARTEIRA: TFloatField
      FieldName = 'PESCOLSALARIOCARTEIRA'
      Origin = '"FPAGAMENTO.FDB".FOLHAPAGAMENTOITEM.PESCOLSALARIOCARTEIRA'
    end
    object QFilhaTOTALINSS: TFloatField
      FieldName = 'TOTALINSS'
      Origin = '"FPAGAMENTO.FDB".FOLHAPAGAMENTOITEM.TOTALINSS'
    end
    object QFilhaVALORDSR: TFloatField
      FieldName = 'VALORDSR'
      Origin = '"FPAGAMENTO.FDB".FOLHAPAGAMENTOITEM.VALORDSR'
    end
    object QFilhaRECEBERBRUTO: TFloatField
      FieldName = 'RECEBERBRUTO'
      Origin = '"FPAGAMENTO.FDB".FOLHAPAGAMENTOITEM.RECEBERBRUTO'
    end
    object QFilhaRECEBERLIQUIDO: TFloatField
      FieldName = 'RECEBERLIQUIDO'
      Origin = '"FPAGAMENTO.FDB".FOLHAPAGAMENTOITEM.RECEBERLIQUIDO'
    end
    object QFilhaVALORHORAS50: TFloatField
      FieldName = 'VALORHORAS50'
      Origin = '"FPAGAMENTO.FDB".FOLHAPAGAMENTOITEM.VALORHORAS50'
    end
    object QFilhaVALORHORAS100: TFloatField
      FieldName = 'VALORHORAS100'
      Origin = '"FPAGAMENTO.FDB".FOLHAPAGAMENTOITEM.VALORHORAS100'
    end
    object QFilhaTOTALFALTAS: TFloatField
      FieldName = 'TOTALFALTAS'
      Origin = '"FPAGAMENTO.FDB".FOLHAPAGAMENTOITEM.TOTALFALTAS'
    end
    object QFilhaVALE: TFloatField
      FieldName = 'VALE'
      Origin = '"FPAGAMENTO.FDB".FOLHAPAGAMENTOITEM.VALE'
    end
    object QFilhaMESREFERENCIA: TIntegerField
      FieldName = 'MESREFERENCIA'
      Origin = '"FPAGAMENTO.FDB".FOLHAPAGAMENTOITEM.MESREFERENCIA'
    end
    object QFilhaANOREFERENCIA: TIntegerField
      FieldName = 'ANOREFERENCIA'
      Origin = '"FPAGAMENTO.FDB".FOLHAPAGAMENTOITEM.ANOREFERENCIA'
    end
  end
  object dsVale: TDataSource
    DataSet = FMovFolhaPagamento.QVale
    Left = 188
    Top = 327
  end
  object ds2: TDataSource
    DataSet = QFilha
    Left = 440
    Top = 264
  end
end
